﻿Namespace OpenArchive
    Namespace System
        Namespace DB
            <AttributeUsage(AttributeTargets.Field, Inherited:=False)> _
            Public Class IndexFieldAttribute
                Inherits Attribute
                Private m_unique As Boolean
                Private m_store As Boolean

                Public Sub New()
                    m_store = True
                End Sub
                Public Property Unique() As Boolean
                    Get
                        Return m_unique
                    End Get
                    Set(ByVal value As Boolean)
                        m_unique = value
                    End Set
                End Property
                Public Property Store() As Boolean
                    Get
                        Return m_store
                    End Get
                    Set(ByVal value As Boolean)
                        m_store = value
                    End Set
                End Property
            End Class
        End Namespace
    End Namespace
End Namespace